700
How can I filter the check-boxes (method 1)

With AxGrid1
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.CheckValueType
			.Option(EXGRIDLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With
699
How can add a button to control

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		Debug.Print( "ButtonClick" )
		Debug.Print( .Items.CellCaption(e.item,e.colIndex) )
		Debug.Print( e.key )
	End With
End Sub

Dim h,s
With AxGrid1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.HeaderHeight = 22
	.Appearance = EXGRIDLib.AppearanceEnum.None2
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.ScrollBySingleLine = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\auction.gif")
	With .Columns
		With .Add("Type")
			.Width = 48
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
		With .Add("Appearance")
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
			.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		End With
	End With
	With .Items
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.CellValue(h,1) = "Button <b>1</b>"
		.CellHasButton(h,1) = True
		h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
		.CellValue(h,1) = " Button <b>2</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.CellValue(h,1) = " <img>2</img>Button <b>3</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.ItemHeight(h) = 32
		.CellValue(h,1) = " <img>2</img>Button <b>4</b> <img>pic1</img> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
		.CellValue(h,1) = " Button <b>5.1</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		s = .SplitCell(h,1)
		.CellValue(0,s) = " Button <b>5.2</b> "
		.CellHasButton(0,s) = True
		.CellButtonAutoWidth(0,s) = True
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.CellValue(h,1) = "Visible when clicking the cell"
		With .CellEditor(h,1)
			.EditType = EXGRIDLib.EditTypeEnum.EditType
			.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
			.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
			.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
			.ButtonWidth = 24
		End With
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.CellValue(h,1) = 3
		With .CellEditor(h,1)
			.EditType = EXGRIDLib.EditTypeEnum.CheckListType
			.AddItem(1,"Flag 1")
			.AddItem(2,"Flag 2")
			.AddItem(4,"Flag 4")
			.AddItem(8,"Flag 8")
			.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
			.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
			.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
			.ButtonWidth = 24
		End With
	End With
	.EndUpdate()
End With
698
The item is not getting selected when clicking the cell's checkbox. What should I do

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
	With AxGrid1
		.Items.SelectItem(e.item) = True
	End With
End Sub

With AxGrid1
	.Columns.Add("Check").Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With
697
Is it possible to limit the height of the item while resizing

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.ItemMinHeight(e.item) = 18
		.Items.ItemMaxHeight(e.item) = 72
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.ItemsAllowSizing = EXGRIDLib.ItemsAllowSizingEnum.exResizeItem
	.ScrollBySingleLine = False
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
696
Is it possible to copy the hierarchy of the control using the GetItems method

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Def")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.PutItems(.GetItems(-1))
End With
695
Is it possible to auto-numbering the children items but still keeps the position after filtering

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Child 2"
	End With
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = False
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
694
Is it possible to auto-numbering the children items too

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = False
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
693
Is it possible to cancel or discard the values during validation

' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
	With AxGrid1
		Debug.Print( "ValidateValue" )
		Debug.Print( e.newValue )
		Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
		Debug.Print( "The DiscardValidateValue restores back the previously values." )
		.DiscardValidateValue()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateCell
	.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
	.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
	End With
	.EndUpdate()
End With
692
Is it possible to validate the values of the cells only when user leaves the focused item
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
	With AxGrid1
		Debug.Print( "ValidateValue" )
		Debug.Print( e.newValue )
		Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
		e.cancel = True
		Debug.Print( "You can not leave the item/record until the Cancel is False." )
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateItem
	.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
	.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
	End With
	.EndUpdate()
End With
691
We would like to validate the values of the cells. Is it possible

' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
	With AxGrid1
		Debug.Print( "ValidateValue" )
		Debug.Print( e.newValue )
		Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." )
		e.cancel = True
		Debug.Print( "You can not leave the cell until the Cancel is False." )
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateCell
	.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
	.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
		.CellValue(.AddItem(#1/1/2001#),1) = "text"
	End With
	.EndUpdate()
End With
690
Is there any way to add auto-numbering

With AxGrid1
	With .Columns
		.Add("Items")
		With .Add("Pos")
			.FormatColumn = "1 pos ''"
			.Position = 0
		End With
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
End With
689
Does your control supports multiple lines tooltip

With AxGrid1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " & _
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
End With
688
How can I prevent highlighting the column from the cursor - point

With AxGrid1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJ" & _
"gEgI=")
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,16777216)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
687
Is it possible display numbers in the same format no matter of regional settings in the control panel

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		h = .AddItem(-100000.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
		h = .AddItem(-100000.27)
		.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
	End With
	.EndUpdate()
End With
686
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(0.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(0.27)
		.FormatCell(h,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	End With
	.EndUpdate()
End With
685
How can I specify the format for negative numbers

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(-100000.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(-100000.27)
		.FormatCell(h,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	End With
	.EndUpdate()
End With
684
Is it possible to change the grouping character when display numbers

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	End With
	.EndUpdate()
End With
683
How can I display numbers with 2 digits in each group

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.FormatCell(h,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	End With
	.EndUpdate()
End With
682
How can I display my numbers using a different decimal separator

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	End With
	.EndUpdate()
End With
681
Is it possible to display the numbers using 3 (three) digits

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
		h = .AddItem(100.27)
		.FormatCell(h,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	End With
	.EndUpdate()
End With
680
Is there any option to show the tooltip programmatically

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	Dim c,hit
	With AxGrid1
		.ShowToolTip(.get_ItemFromPoint(-1,-1,c,hit),"","8","8")
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
679
How can I specify the column's width to be the same for all columns

With AxGrid1
	With .Columns
		.Add("A")
		.Add("B")
		.Add("C")
	End With
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.ColumnAutoResize = True
End With
678
How can I set the column's width to my desired width

With AxGrid1
	.ColumnAutoResize = False
	With .Columns
		.Add("A").Width = 128
		.Add("B").Width = 128
	End With
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
End With
677
Is it possible to format numbers

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("A")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("B")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("A+B+C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.Width = 64
			.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellValue(h1,1) = 7
		.CellValue(h1,2) = 3
		.CellValue(h1,3) = 1
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellValue(h1,1) = -2
		.CellValue(h1,2) = -2
		.CellValue(h1,3) = -4
		h1 = .InsertItem(h,Nothing,"Child 3")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 2
		.CellValue(h1,3) = -4
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
676
How can I collapse all items

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = False
	End With
	.EndUpdate()
End With
675
How can I expand all items

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With
674
Can I display a total field without having to add a child item

Dim h
With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Numbers")
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Numeric = EXGRIDLib.NumericEnum.exFloat
		End With
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,0) = "sum(all,dir,dbl(%0))"
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'SUM: '+value"
	End With
	.EndUpdate()
End With
673
Can I display the number of child items

Dim h,hx
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Columns.Add("")
	With .Items
		h = .AddItem("Root 1")
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = EXGRIDLib.ValueFormatEnum.exTotalField
		.FormatCell(0,hx) = "'Childs: ' + value"
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = EXGRIDLib.ValueFormatEnum.exTotalField
		.FormatCell(0,hx) = "'Childs: ' + value"
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.InsertItem(h,Nothing,"Child 4")
	End With
	.EndUpdate()
End With
672
My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("T")
	With .Columns.Add("A").Editor
		.Numeric = EXGRIDLib.NumericEnum.exInteger
		.EditType = EXGRIDLib.EditTypeEnum.SpinType
	End With
	With .Columns.Add("B").Editor
		.Numeric = EXGRIDLib.NumericEnum.exInteger
		.EditType = EXGRIDLib.EditTypeEnum.SpinType
	End With
	.Columns.Add("A+B")
	With .Items
		h = .AddItem("Incorrect")
		.CellToolTip(h,0) = "Just type a number in the column A or B. The result will be concaternated"
		.CellValue(h,1) = "10"
		.CellValue(h,2) = "20"
		.CellValue(h,3) = "currency(%1+%2)"
		.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exComputedField
		h = .AddItem("Correct")
		.CellValue(h,1) = 10
		.CellValue(h,2) = 20
		.CellValue(h,3) = "currency(dbl(%1)+dbl(%2))"
		.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exComputedField
	End With
	.EndUpdate()
End With
671
The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("A").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	.Columns.Add("B").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	.Columns.Add("A+B")
	With .Items
		h = .AddItem(10)
		.CellValue(h,1) = 20
		.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exComputedField
		.CellValue(h,2) = "currency(dbl(%0)+dbl(%1))"
		Debug.Print( "CellCaption returns " )
		Debug.Print( .CellCaption(h,2) )
		Debug.Print( "CellValue returns " )
		Debug.Print( .CellValue(h,2) )
		Debug.Print( "ComputeValue returns " )
		Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,.CellValueFormat(h,2)) )
	End With
	.EndUpdate()
End With
670
Can I get the result of a specified formula as your control does using the ComputedField property
Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("A")
	.Columns.Add("B")
	With .Items
		h = .AddItem(10)
		.CellValue(h,1) = 20
		Debug.Print( "A+B is " )
		Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,2) )
	End With
	.EndUpdate()
End With
669
Is it possible to get the text without HTML formatting

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("<b>bold</b>")
		Debug.Print( .ComputeValue(.CellValue(h,0),h,0,1) )
	End With
	.EndUpdate()
End With
668
Can I specify an item to be a separator

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.Columns.Add("Numbers")
	With .Items
		.AddItem(1)
		.AddItem(2)
		h = .AddItem("separator")
		.SelectableItem(h) = False
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.ThinLine
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.AddItem(3)
		.AddItem(4)
	End With
	.EndUpdate()
End With
667
How can I count only non-zero values

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(0)
		.AddItem(0)
		.AddItem(0)
		.AddItem(0)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("sum(all,dir,dbl(%0)?1:0)")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'COUNT non-zero: '+value"
	End With
	.EndUpdate()
End With
666
How can I add a AVG ( average ) field

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("avg(all,dir,dbl(%0))")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'AVG: '+value"
	End With
	.EndUpdate()
End With
665
How can I add a COUNT field

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("count(all,dir,0)")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'COUNT: '+value"
	End With
	.EndUpdate()
End With
664
How can I add a MAX field

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("max(all,dir,dbl(%0))")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'MAX: '+value"
	End With
	.EndUpdate()
End With
663
How can I add a MIN or MAX field (for numbers)

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(11)
		.AddItem(21)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("min(all,dir,dbl(%0))")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'MIN: '+value"
		h = .AddItem("max(all,dir,dbl(%0))")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'MAX: '+value"
	End With
	.EndUpdate()
End With
662
How can I add a SUM field

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("sum(all,dir,dbl(%0))")
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'SUM: '+value"
	End With
	.EndUpdate()
End With
661
How can I add total and subtotals fields

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Columns.Add("Members")
	With .Columns.Add("Values")
		.FormatColumn = "currency(value)"
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Numeric = EXGRIDLib.NumericEnum.exInteger
		End With
	End With
	With .Items
		h = .AddItem("Group 1")
		.ItemBold(h) = True
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 30
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 5
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 35
		h = .AddItem("total")
		.CellValue(h,1) = "sum(all,rec,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.FormatCell(h,1) = "'Total: <b>' + currency(value)"
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
		.ItemDivider(h) = 1
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.DoubleLine
		.SortableItem(h) = False
	End With
	.EndUpdate()
End With
660
Is is possible to have subtotal items, and a grand total item

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,hT
With AxGrid1
	.BeginUpdate()
	.BackColor = RGB(255,255,255)
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.ShowFocusRect = False
	.Columns.Add("Members")
	With .Columns.Add("Values")
		.FormatColumn = "currency(value)"
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Numeric = EXGRIDLib.NumericEnum.exInteger
		End With
	End With
	With .Items
		h = .AddItem("Group 1")
		.ItemBold(h) = True
		.SortableItem(h) = False
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.FormatCell(h,1) = " "
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 30
		hT = .InsertItem(h,Nothing,"subtotal")
		.CellHAlignment(hT,1) = EXGRIDLib.AlignmentEnum.RightAlignment
		.CellEditorVisible(hT,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValue(hT,1) = "sum(parent,dir,dbl(%1))"
		.CellValueFormat(hT,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(hT,1) = "'subtotal: <b>' + currency(value)"
		.ItemDivider(hT) = 1
		.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.SortableItem(hT) = False
		.SelectableItem(hT) = False
		.ItemDividerLine(hT) = EXGRIDLib.DividerLineEnum.DotLine
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.SortableItem(h) = False
		.FormatCell(h,1) = " "
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 15
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 25
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 18
		hT = .InsertItem(h,Nothing,"subtotal")
		.CellHAlignment(hT,1) = EXGRIDLib.AlignmentEnum.RightAlignment
		.CellEditorVisible(hT,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValue(hT,1) = "sum(parent,dir,dbl(%1))"
		.CellValueFormat(hT,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(hT,1) = "'subtotal: <b>' + currency(value)"
		.ItemDivider(hT) = 1
		.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemDividerLine(hT) = EXGRIDLib.DividerLineEnum.DotLine
		.SortableItem(hT) = False
		.SelectableItem(hT) = False
		.ExpandItem(h) = True
		h = .AddItem("total")
		.CellValue(h,1) = "sum(all,rec,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.FormatCell(h,1) = "'Total: <b><font ;11>' + currency(value)"
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 1
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.DoubleLine
		.SortableItem(h) = False
		.SelectableItem(h) = False
	End With
	.EndUpdate()
End With
659
Is it possible to have a total field for each column

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	With .Columns.Add("C1")
		With .Editor
			.Numeric = EXGRIDLib.NumericEnum.exInteger
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Columns.Add("C2")
		With .Editor
			.Numeric = EXGRIDLib.NumericEnum.exInteger
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.ItemBackColor(h) = RGB(240,240,240)
		.ItemBold(h) = True
		.CellValue(h,0) = "sum(all,dir,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(h,1) = "sum(all,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 12
		.CellValue(.AddItem(25),1) = 5
		.CellValue(.AddItem(31),1) = 17
		.CellValue(.AddItem(48),1) = 22
	End With
	.EndUpdate()
End With
658
How can I add a total field for a DataSource being used

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,rs
With AxGrid1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemDivider(h) = 0
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellValue(h,0) = "sum(all,dir,%1)"
	End With
End With
657
How can I add a total field

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Numbers")
		With .Editor
			.Numeric = EXGRIDLib.NumericEnum.exInteger
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemBackColor(h) = RGB(240,240,240)
		.CellValue(h,0) = "sum(all,dir,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'Total: '+value"
	End With
	With .Items
		.AddItem(10)
		.AddItem(25)
		.AddItem(31)
		.AddItem(48)
	End With
	.EndUpdate()
End With
656
How can I add a total field

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,hT
With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Items").Editor
		.EditType = EXGRIDLib.EditTypeEnum.SpinType
		.Numeric = EXGRIDLib.NumericEnum.exInteger
	End With
	With .Items
		h = .AddItem("Group 1")
		.CellEditorVisible(h,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.InsertItem(h,Nothing,10)
		.InsertItem(h,Nothing,20)
		.InsertItem(h,Nothing,30)
		hT = .InsertItem(h,Nothing,"sum(parent,dir,dbl(%0))")
		.CellEditorVisible(hT,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValueFormat(hT,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.ItemDivider(hT) = 0
		.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerTop
		.SelectableItem(hT) = False
		.SortableItem(hT) = False
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
655
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Value")
	.Columns.Add("FormatCell")
	With .Items
		h = .AddItem(1)
		.CellValue(h,1) = 12
		.FormatCell(h,1) = "currency(value)"
		h = .AddItem(#1/1/2001#)
		.CellValue(h,1) = #1/1/2001#
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
	End With
	.EndUpdate()
End With
654
How can I simulate displaying groups

Dim h,h1
With AxGrid1
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ScrollBySingleLine = True
	With .Columns
		.Add("Name")
		.Add("A")
		.Add("B")
		.Add("C")
	End With
	With .Items
		h = .AddItem("Group 1")
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
		.ItemHeight(h) = 24
		.SortableItem(h) = False
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellValue(h1,1) = 1
		.CellValue(h1,2) = 2
		.CellValue(h1,3) = 3
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellValue(h1,1) = 4
		.CellValue(h1,2) = 5
		.CellValue(h1,3) = 6
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
		.ItemHeight(h) = 24
		.SortableItem(h) = False
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellValue(h1,1) = 1
		.CellValue(h1,2) = 2
		.CellValue(h1,3) = 3
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellValue(h1,1) = 4
		.CellValue(h1,2) = 5
		.CellValue(h1,3) = 6
		.ExpandItem(h) = True
	End With
End With
653
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Dim h
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("Values")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.FormatCell(h,1) = "'<none>'"
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 25
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
652
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

Dim h
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("Values")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.FormatCell(h,1) = " "
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
		.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 25
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
651
How can I specify an item to be always the first item

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("first")
		.ItemPosition(h) = 0
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.SortableItem(h) = False
		.SortChildren(0,0,False)
	End With
	.EndUpdate()
End With
650
How can I specify an item to be always the last item

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("last")
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.SortableItem(h) = False
		.SortChildren(0,0,True)
	End With
	.EndUpdate()
End With
649
Can I allow sorting only the child items

Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("Childs")
	With .Items
		h = .AddItem("Root 1")
		.SortableItem(h) = False
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.SortableItem(h) = False
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
648
Can I specify a terminal item so it will mark the end of childs

Dim h
With AxGrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.Columns.Add("P1")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
	End With
	.EndUpdate()
End With
647
Is it possible to specify an item being unsortable so its position won't be changed after sorting

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("top 3")
		.ItemPosition(h) = 3
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.SortableItem(h) = False
		.SortChildren(0,0,False)
	End With
	.EndUpdate()
End With
646
Is it possible to move an item from a parent to another

With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),.FindItem("A",0))
	End With
	.EndUpdate()
End With
645
How can I change the identation for an item

With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),0)
	End With
	.EndUpdate()
End With
644
How can I arrange the control's header on multiple levels

Dim h
With AxGrid1
	.BeginUpdate()
	.DefaultItemHeight = 48
	With .Columns
		.Add("Title").Visible = False
		.Add("FirstName").Visible = False
		.Add("LastName").Visible = False
		.Add("Photo").Visible = False
		With .Add("Address")
			.Visible = False
			.Def(EXGRIDLib.DefColumnEnum.exCellSingleLine) = False
		End With
		With .Add("Personal Info")
			.FormatLevel = "3:48,(0/1/2),4:96"
			.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = "3:48,(0/1/2),4:96"
		End With
	End With
	With .Items
		h = .AddItem("Sales Representative")
		.CellValue(h,1) = "Nancy"
		.CellValue(h,2) = "Davolio"
		.CellPicture(h,3) = AxGrid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.CellValue(h,4) = "507-20th Ave. E.Apt.  2A"
	End With
	.EndUpdate()
End With
643
How can I filter programatically using more columns

With AxGrid1
	.BeginUpdate()
	With .Columns
		.Add("Car")
		.Add("Equipment")
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	With .Columns.Item("Car")
		.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Mazda"
	End With
	With .Columns.Item("Equipment")
		.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "*ABS*|*ESP*"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
642
How can I show the ticks for a single slider field

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Slider").Editor.EditType = EXGRIDLib.EditTypeEnum.SliderType
	With .Items
		.AddItem(10)
		With .CellEditor(.AddItem(20),0)
			.EditType = EXGRIDLib.EditTypeEnum.SliderType
			.Option(EXGRIDLib.EditorOptionEnum.exSliderTickFrequency) = 10
		End With
		.AddItem(30)
	End With
	.EndUpdate()
End With
641
Is it possible to show ticks for slider fields

With AxGrid1
	With .Columns.Add("Slider").Editor
		.EditType = EXGRIDLib.EditTypeEnum.SliderType
		.Option(EXGRIDLib.EditorOptionEnum.exSliderTickFrequency) = 10
	End With
	.Items.AddItem(10)
End With
640
Is it possible to colour a particular column, I mean the cell's foreground color

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.CellValue(.AddItem(0),1) = 1
		.CellValue(.AddItem(2),1) = 3
		.CellValue(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
639
Is it possible to colour a particular column for specified values

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("int(%1) in (3,4,5)")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.CellValue(.AddItem(0),1) = 1
		.CellValue(.AddItem(2),1) = 3
		.CellValue(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
638
Is it possible to colour a particular column

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 255
	End With
	With .Items
		.CellValue(.AddItem(0),1) = 1
		.CellValue(.AddItem(2),1) = 3
		.CellValue(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
637
How do i get all the children items that are under a certain parent Item handle
Dim h,hChild
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	With .Items
		hChild = .ItemChild(.FirstVisibleItem)
		Debug.Print( .CellValue(hChild,0) )
		Debug.Print( .CellValue(.NextSiblingItem(hChild),0) )
	End With
	.EndUpdate()
End With
636
Is is possible to use HTML tags to display in the filter caption

With AxGrid1
	.BeginUpdate()
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
635
How can I find the number of items after filtering
Dim h
With AxGrid1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = .VisibleItemCount
	End With
	.EndUpdate()
End With
634
How can I change the filter caption

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
633
While using the filter prompt is it is possible to use wild characters

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptPattern
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
632
How can I list all items that contains any of specified words, not necessary at the beggining

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
631
How can I list all items that contains any of specified words, not strings

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
630
How can I list all items that contains all specified words, not strings

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
629
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
628
Is it possible to list only items that ends with any of specified strings

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
627
Is it possible to list only items that ends with any of specified strings

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
626
Is it possible to list only items that starts with any of specified strings

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
625
Is it possible to list only items that starts with specified string

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
624
How can I specify that the list should include any of the seqeunces in the pattern

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london seattle"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
623
How can I specify that all sequences in the filter pattern must be included in the list

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
622
How do I change at runtime the filter prompt

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
621
How do I specify to filter only a single column when using the filter prompt

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
620
How do I change the prompt or the caption being displayed in the filter bar

With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	.EndUpdate()
End With
619
How do I enable the filter prompt feature

Dim h0
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With
618
How can I control the colors that can be applied to an EBN part

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		With .Items
			.ItemBackColor(.FirstVisibleItem) = e.newValue
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"c:\exontrol\images\normal.ebn")
		.Add(1,"CP:2 10 3 -10 -5")
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ScrollBySingleLine = True
	.TreeColumnIndex = -1
	With .Columns
		With .Add("Test")
			.Width = 32
		End With
		With .Add("RGB")
			With .Editor
				.EditType = EXGRIDLib.EditTypeEnum.SliderType
				.Option(EXGRIDLib.EditorOptionEnum.exSliderMax) = 255
				.Option(EXGRIDLib.EditorOptionEnum.exSliderWidth) = -60
			End With
		End With
	End With
	With .Items
		h = .AddItem("")
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemBackColor(h) = &H1000000
		.ItemHeight(h) = 36
		.SelectableItem(h) = False
		h = .InsertItem(0,1,"Red")
		.CellValue(h,1) = 255
		h = .InsertItem(0,255,"Green")
		.CellValue(h,1) = 255
		h = .InsertItem(0,65536,"Blue")
		.CellValue(h,1) = 255
	End With
	.EndUpdate()
End With
617
I know this is fairly basic, but could you send me a sample that places a tree in the first column

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("heading")
	With .Items
		h = .AddItem("Parent 1")
		.InsertItem(h,Nothing,"Child A")
		.InsertItem(.InsertItem(h,Nothing,"Child B"),Nothing,"GrandChild C")
		.ExpandItem(h) = True
		h = .AddItem("Parent 2")
		.InsertItem(h,Nothing,"Child D")
		.InsertItem(h,Nothing,"Child E")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
616
How can I get the caption of focused item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		With .Items
			Debug.Print( "Handle" )
			Debug.Print( .FocusItem )
			Debug.Print( "Caption" )
			Debug.Print( .CellCaption(.FocusItem,0) )
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
615
How can I get the caption of selected item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		With .Items
			Debug.Print( "Handle" )
			Debug.Print( .SelectedItem(0) )
			Debug.Print( "Caption" )
			Debug.Print( .CellCaption(.SelectedItem(0),0) )
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
614
Is it possible to let users selects cells as in Excel

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exRectSel
	.SingleSel = False
	.ReadOnly = EXGRIDLib.ReadOnlyEnum.exReadOnly
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(200,225,242)
	With .Columns
		.Add("A")
		With .Add("B")
			.AllowSizing = False
			.Width = 24
		End With
		With .Add("C")
			.AllowSizing = False
			.Width = 24
			.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 1
			.PartialCheck = True
		End With
		With .Add("D")
			.AllowSizing = False
			.Width = 24
			.Def(EXGRIDLib.DefColumnEnum.exCellHasRadioButton) = 1
		End With
	End With
	With .Items
		h = .InsertItem(Nothing,Nothing,"Group 1")
		h1 = .InsertItem(h,Nothing,16)
		.CellValue(h1,1) = 17
		h1 = .InsertItem(h,Nothing,2)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,Nothing,2)
		.ItemBackColor(h1) = RGB(240,240,240)
		.CellValue(h1,1) = 9
		.ExpandItem(h) = True
		h = .InsertItem(Nothing,Nothing,"Group 2")
		.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exHTML
		h1 = .InsertItem(h,Nothing,16)
		.CellValue(h1,1) = 9
		h1 = .InsertItem(h,Nothing,12)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,Nothing,2)
		.CellValue(h1,1) = 2
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
	.EndUpdate()
End With
613
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

Dim h
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesVSolid Or EXGRIDLib.GridLinesStyleEnum.exGridLinesHDot4
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.2"
		.CellValue(h,2) = "SubItem 1.3"
		h = .AddItem("Item 2")
		.CellValue(h,1) = "SubItem 2.2"
		.CellValue(h,2) = "SubItem 2.3"
	End With
	.EndUpdate()
End With
612
Is it possible to change the style for the grid lines, for instance to be solid not dotted

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
	.Columns.Add("Column")
	.EndUpdate()
End With
611
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub AxGrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ScrollButtonClickEvent) Handles AxGrid1.ScrollButtonClick
	With AxGrid1
		Debug.Print( e.scrollBar )
		Debug.Print( e.scrollPart )
	End With
End Sub

With AxGrid1
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB5Part,True)
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal
End With
610
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxGrid1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AnchorClickEvent) Handles AxGrid1.AnchorClick
	With AxGrid1
		Debug.Print( e.anchorID )
		Debug.Print( e.options )
	End With
End Sub

With AxGrid1
	.Columns.Add("Default").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
		.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
	End With
End With
609
Is it possible to start editing a cell when double click it

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	With AxGrid1
		.Edit()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate()
End With
608
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	With AxGrid1
		.Edit()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate()
End With
607
How can I get or restore the old or previously value for the cell being changed
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		Debug.Print( "Old-Value:" )
		Debug.Print( .Items.CellValue(e.item,e.colIndex) )
		Debug.Print( "New-Value:" )
		Debug.Print( e.newValue )
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate()
End With
606
How can I get the item from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	Dim c,h,hit
	With AxGrid1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( "Handle" )
		Debug.Print( h )
		Debug.Print( "Index" )
		Debug.Print( .Items.ItemToIndex(h) )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exHLines
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
605
How can I get the column from the cursor, not only in the header

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	With AxGrid1
		Debug.Print( .get_ColumnFromPoint(-1,0) )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P1")
	.Columns.Add("P2")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
604
How can I get the column from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	With AxGrid1
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.Columns.Add("P1")
	.Columns.Add("P2")
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
603
How can I get the cell's caption from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	Dim c,h,hit
	With AxGrid1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.CellCaption(h,c) )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
602
How can I customize the items based on the values in the cells

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .ConditionalFormats
		With .Add("%1 >4")
			.Bold = True
			.StrikeOut = True
			.ForeColor = RGB(255,0,0)
			.ApplyTo = EXGRIDLib.FormatApplyToEnum.exFormatToItems
		End With
		With .Add("%2 > 4")
			.Bold = True
			.StrikeOut = True
			.ForeColor = RGB(255,0,0)
			.ApplyTo = &H2
		End With
		With .Add("%3 > 4")
			.Bold = True
			.StrikeOut = True
			.ForeColor = RGB(255,0,0)
			.ApplyTo = &H3
		End With
	End With
	With .Columns
		.Add("Name")
		With .Add("A")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("B")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("A+B+C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.ComputedField = "%1+%2+%3"
			.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellValue(h1,1) = 7
		.CellValue(h1,2) = 3
		.CellValue(h1,3) = 1
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 5
		.CellValue(h1,3) = 12
		h1 = .InsertItem(h,Nothing,"Child 3")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 2
		.CellValue(h1,3) = 4
		h1 = .InsertItem(h,Nothing,"Child 4")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 9
		.CellValue(h1,3) = 4
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
601
Is it is possible to have a column computing values from other columns

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("A")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("B")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("A+B+C")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.ComputedField = "%1+%2+%3"
			.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellValue(h1,1) = 7
		.CellValue(h1,2) = 3
		.CellValue(h1,3) = 1
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 5
		.CellValue(h1,3) = 12
		h1 = .InsertItem(h,Nothing,"Child 3")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 2
		.CellValue(h1,3) = 4
		h1 = .InsertItem(h,Nothing,"Child 4")
		.CellValue(h1,1) = 2
		.CellValue(h1,2) = 9
		.CellValue(h1,3) = 4
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With